home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / vernon.zip / NEG1.PAS < prev    next >
Pascal/Delphi Source File  |  1989-02-28  |  250b  |  11 lines
  1.  
  2.      {This function calculates the portion of the term of sin(x)
  3.       that is (-1) raised to the ith power.                       }
  4.  
  5.       function neg1 ( I: INTEGER) : REAL;
  6.  
  7.          begin
  8.            neg1 := power(-1,I)
  9.          end;
  10.  
  11.